home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / bar.arc / BAR.PRG next >
Text File  |  1987-03-30  |  888b  |  47 lines
  1. * Program..: Bar.PRG
  2. * Author...: Jon Wind
  3. * Date.....: March 30, 1987
  4. * Version..: dBASE III or III PLUS
  5. * Note(s)..: This program generates a status bar, for use when
  6. *            performing multiple searches, or lengthy calculations
  7. *            to graphically illustrate program status to the user.
  8. *
  9.  
  10.  
  11. WAIT "Are you using dBASE III PLUS?  (y/N)  " TO db3p
  12. SET TALK OFF
  13. SET PROC TO barproc
  14. CLEA
  15.  
  16.  
  17. IF UPPE(db3p)="Y"
  18.   DO buildbar WITH 14,"Percent Completed","g"
  19. ELSE
  20.   *set up memvars because REPLICATE command is not available
  21.   bar=CHR(219)
  22.   dbar=CHR(205)
  23.   DO WHIL LEN(bar)<50
  24.     bar=bar+bar
  25.     dbar=dbar+dbar
  26.   ENDD
  27.   DO buildbr2 WITH 14,"Percent Completed","2"
  28. ENDI
  29.  
  30.  
  31. cnt=0
  32. DO WHIL cnt<101
  33.  
  34.   IF UPPE(db3p)="Y"
  35.     DO barstat WITH cnt,""
  36.   ELSE
  37.     DO barstat2 WITH cnt,"7"
  38.   ENDI
  39.  
  40.   cnt=cnt+5
  41.  
  42. ENDD
  43.  
  44. SET TALK ON
  45. @23,0
  46.  
  47.